home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 September / Chip_2004-09_cd1.bin / program / delphi / download / nastroje / 97.mpth_10[1].exe / {app} / scripts / Concat Files.mps < prev    next >
Text File  |  2003-09-21  |  960b  |  44 lines
  1. = concat files (file.01, ...02,...)
  2.  
  3. var fname text, path text, filer text, datt text curline dword
  4. var lenlf dword, pos dword, file1 file, ed file, dat file lines dword
  5.  
  6. fname = askopenfilename("Concat files: Chose data file", "Data files (*.dat)|*.dat", "dat"):= get data file
  7. path = extractpath(fname)
  8. file1 = fileopen(fname)
  9. fileread file1 fname
  10. datt = fname
  11. fileclose file1
  12. lines = 0
  13. lenlf = textlen("\n")
  14. @@L0
  15. pos = textpos("\n", datt)
  16. inc lines 1
  17. datt = textcopy(datt, pos+lenlf)
  18. if (datt != '') 
  19.   goto L0
  20. endif
  21.  
  22. curline = 0
  23. ed = fileopen('::new', 'c')
  24. @@L
  25. pos = textpos("\n", fname)
  26. filer = path+textcopy(fname, 1, pos-1)
  27. fname = textcopy(fname, pos+lenlf)
  28. if not fileexists(filer) 
  29.   error "file ",filer," does not exist"
  30. endif
  31.  
  32. dat = fileopen(filer)
  33. fileread dat datt filesize(dat)
  34. fileclose dat
  35.  
  36. filewrite ed datt
  37. showprogress lines, curline
  38. inc curline 1
  39.  
  40. if fname != '' 
  41.   goto L
  42. endif
  43. showprogress 100
  44.